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FILECMDS - FILE 1/0 COMMAND EXECUTION 15-SEP-1984 § 47:49 VAX/VMS Macro v04-00 Page 1. 
v04-000 4-SEP-1984 23:40:36 (CDCL.SRCIJFILECMDS.MAR;1 (1) 
4 0 1 TITLE et aay - FILE 1/0 COMMAND EXECUTION 
0 ¢ -IDENT ‘v04-000' 
$0 4; 
808 5 pia attain dn nna 
° ® 
0000 8 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
000 8 ;* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
44 1 e ALL RIGHTS RESERVED. * 
P4 ® 
0000 11 ;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
0000 \¢ :* ONLY IN ACCORDANCE WITH THE TERMS OF CH LICENSE AND WITH THE * 
0000 15 ;* INCLUSION OF THE AB COPYRIGHT NOTICE. THIS SOFTWARE OR ANY * 
4H 14 ;* COPIES THEREOF MAY NOT BE IDED OR OTHERWISE MADE AVAILABLE TO ANY * 
000 15 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
+464 1 TRANSFERRED. * 
é * 
B058 18 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
000 19 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
464 $9 :* CORPORATION. * 
° *® 
0000 ¢ :* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 ;* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
0000 «58 fs : 
® ® 
4464 $8 POT TITIIILI LILLE LETT TET TELL TTT TLE TT TTT TT TTT TTT TTT TTT 
0000 58 : FILE 1/0 DCLS COMMAND EXECUTION 
0000 $3 § 
0000 0; CLOSE FILE 
0000 H 3 OPEN FILE 
0000 § ; READ FILE 
0000 3 WRITE FILE 
0009 4; 
0060 5 ; D. N. CUTLER 12-FEB-78 
0C00 36 ; 
0000 7 ; MODIFIED BY: 
9000 & 
0000 9; v03-017 HWS0104 Harold Schultz gt ofuge 1306 
0000 40 ; Fix accvio in “invalid symbol"’ error path in READ 
44 re 3 command. 
000 tg : V03-016 HWS0067 Harold Schultz 24-May-1984 
O60 44 ; Enable WRITE/SYMBOL to also handle quoted expressions 
B28 $2 : n addition to just symbols. 
000 47 : V03-015 HwWS0063 Harold Schultz 27-Apr-1984 
44 2 ; Initialize TIME_OUT flag in READ. 
000 0: V03-014 HWS9050 Harold Schultz 03-Apr-1984 
000 13 Add READ/TIME_OUT=n. 
4 § ; Add CLOSE/LOG. 
0 4: v03-013 PCG0013 Peter George 14-Mar-1984 
0 5 Get #1 tant. Allow writes to level-0 SYSSOUTPUT. 
0 § : Fix PSLSC_USER access mode setting. Save status in 
0 : WRITE command when expanding symbols. 
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v0e=000 a=8Eb-19be 33 Fi ie 


| ~1984 33:40:36 CDCL.SRCJFILECHDS.MAR; 1 
8 ; 
$ 8 : v03-012 HwWS0023 rold Schultz 08-Mar-1984 
60 ; Set PSLS$C_USER Noy FABSV. FILE “MODE rly to opening a file. 
0 61 ; Add VS YRBOL to WRITE command to allow output of syabeis as 
000 6¢ ; well as SPE coe 
00 64; v03-011 PCGO012 eorge 25-Sep-1983 
444 o? : Allow writes to + ae th SYSSOUTPUT. 
0900 67 ; v03-010 PCG0011 Peter George 07-Sep-1983 
000 68 ; Use new logical mame services to create and delete 
8808 , § file logical names. Do not set PRN RAT attribute when 
44 oy 3 opening a file for read-only access. 
$009 72: v03-009 PCG0010 Peter George 15-Jul-1983 
44 iS 3 Modify READ symbol validation algorithm. 
0000 75: v03-008 P¢G0009 Peter George 15-Jun-1983 
444 6 ; Allow expressions in WRITE command. 
0000 78: v03-007 PCG0008 Peter George 01-Mar-1983 
0000 79 ; Call DCLSGETNVAL. 
444 6” : Understand that a terminal XAB exists. 
0000 Be ; v03-006 PCG0007 ter George 14-Feb-1983 
464 Hi 8 Fix OPEN/APPEND es bit bug. 
0000 85 ; v03-005 PCG0006 Peter George 11-Jan-1983 
0000 86 ; Remove all references to E RIF! and ERRRAB. 
4364 fi 3 Fix READ/EOF bug. 
0000 89 ; v03-004 PCG0005 Peter {George 07-Jan-1983 
000 90 ; Fix WRITE/UPDATE accvi 
44 4! : Sea keiala reset READ/MATCH mode. 
0000 38 : v03-003 Aire: Peter George ,frebee= 1962 
0000 94 ; Allow + to delimit WRITE command param 
0000 95; Use DCLSSAVE_STATUS instead of DC $SET. * STATUS. 
494 38 ; Add READ/MATCH. 
0000 98; v03-002 PCGO003. «si(‘s—~*é@Pletttrrr-:« George 03-Dec-1982 
8000 190 3 Allocate write buffer on the stack. 
00 101 : v03-001 PCG0002 Peter George 23-Nov-1982 
464 138 ; Use WRK_G_BUFFER instead of WRK_G_RECORD. 


~ 
mr 
a 
ae 
a toa 
@ at 
a t 4 
a 
o 
M 
[* 4 nn Ww 
— ow a w 
Ty -—-— a ap 
L: 4 Qw w J 
ocx rT") — « 
oz cu Ww wu. > 
te <«quu w i 
ww WWMOMWA wn oa 
oa eaw io "> « 
>= << Qawow u_— OO 
vu =? u<« 3 
Ow www Ew or 
eu Seaver uMHY wWwo 
oe OO@uKereew FZ 
Ow 33a {wweogcwo 
=m AkKur-MMO0OMWY 
vw YO VOMUuL IMU 
Ma Y2Zew ~uwuQMuuw 
=m wet ngenwecoo won | 
>e. Sscve wo - 
xwW cow2z>a eae i 
<a AVE we IUZO ew j 
>w | 
ad dd ds a sa a a a | 
222222222222 | 
ono Dt ag 0a a ag ot Og gd a dd oe j 
i e se a a a a a } 
~o aan0G0QAAaAaa0aaa | 
} ww Pere rere rerte tetera rterteare 
| ne be 
| or a 
| za 
a4 o | 
aooo 4 
an ba 
| -— a i 
i im) « 
aa = . 
ww _ w 
wn ives _ - 
‘6 iw > ” 
we t: 4 @ ” 
_— a . o w 
w - 2 w v 
uw a — « oO 
| oO a —. [. 4 
at w io — co = o--« a 
~~ ” “ ~N t) yy & YY AF ad 
ad os oe <x = «- = 
| ae - —~+~+§ =- @ w Oo =z wa z 
| -_ << wo 4 ve a o& = * w cs a 
vw w w oa = - <- Q es - 
a =z z oO 
| oan Uuevwuueu =< fo 4 
| a Se ee ee eal eleereerrerrerrey ; - a w& w vw ec Y 
4 WwwWwwwEOOaoOAa « =) _ a oO _ 
z a Oooooo-@Of zo uw we wo - wow me wo wu 
o @ VUesteu Fite eave a we A uo. nn ww 
_ _ ear-orvuwu tjJZAauw aaQq« << ”" «<a we 
| = a A BA--NMAMMRHAAHA w” ~ . 2 . - . oa 7. we 
j > ” ~ -_ ail « v 
v oO w " => hl o Oo 
| w « v w <= < wo ) oo & 
=< vw oO a - a — w ee “ww fo 
| [v¥) <= < i? <x<e« w a w are 
+ a Y oF ow “~ <e x 
| a ” 4 “ wo 
i $ eer+ere eerere ws sere*eD terereD cororoe BS ps 
NOR. DOO CMF NOR.. DOO WM TNOR.DOKORK—W MTNOKR DRORK—UM TN 
| ol eh he bd Lad La Ld od oh od od oh hd a a ee eee 
| LLL LLL OO EK OC Cee ee 
| vw 
oO 
~ DOOCOCOOOOOOOOOOVGVOSCOCOSOOSCOOSOOCOCCR. PAR AR VOU VOW we 
_ SDOSOOSOSOSOSOSOSSOSOSOSOOSOSOSOSOSOSOOSOSOSOOSOOOOOCOOCOCOCO eK KKK 
SOOOOSCOOOSOSOOOSOSOSOOSOSOSOSOOSOOSOSOOOO OOOO OOOOOOOOOCO 
pe | DOCOOOOOOOOOOOOOOSOOSOSOSSSSOSSSSSsssssssssssss 
_— @o Ss ow wn 
“ o ow 
| . S o oo oo mw s 
So wv w mr 
S w N ww 
So _ wv -—O 
So we) ae wv 
wr - wv 
~ w ww 
- w 
oO w 
—? 
al 
o 
° 
| 


53 53 45 43 4F 52 50 24 4D 4E 4C 00° 


‘wees 


FILECMDS 
Vv = 


mus 
oo 


—0W—9 -9OWo 0 
mon —w— oom 


COOOCSOCSOSCOCCOSOOOSOOOOOOOOOOOOOOCOoOOoOO 


SSESSSSSSSSSSSS3SSS3SS3SS3SSssssssssssssss 


POU tS NOVO DP NN" SF OO NWUOMD OOWOP PP FNL FF FQOOOOOCOOOCOOOOOOOOOOOO r™ 


Se PAPAIN BEE EE 


F 4 
COMMAND EXECUTION 15- v04-00 Page 


acro 
FILECMDS.MAR; 1 


Om 
aye 


P ~SBTTL CLOSE FILE 
DCLSCLOSE = CLOSE FILE 
; tae IS CALLED AS AN INTERNAL COMMAND TO EXECUTE THE CLOSE FILE DCLS 


; INPUTS: 


= ADDRESS 0 
= ADDR 


TCH BUFFER DESCRIPTOR. 
DRESS 0 Ss 


A 

A . 

OF COMMAND WORK AREA. 
OF PROCESS WORK AREA. 


THE SPECIFIED FILE IS CLOSED. 


CLSCLOSE: : iSLOSE FILE 
CLRBIT WRK_V_CLOSERR.WRK_W_FLAGS2(R10) ;ASSUME /LOG 


; *eeee WARNING, GETID RETURNS’ VIA CO-ROUTINE CALL, NOTHING MAY BE ON THE STACK 


BSBW GETID :GET FILE IDENTIFICATION 
BLBS RO,208 :1F LBS FILE ID FOUND 


HAVE AN UNDEFINED FILE STATUS ERROR. CHECK FOR /NOLOG IN COMMAND LINE 
MOVAB WRK_G_RESULT(R10) ,WRK_L_RSLNXT(R10) ;RELOAD TOKEN POINTER 
MOV RO,=(SP) SAVE STATUS 


b 


; U 
OCLSGETDVAL :GET NEXT TOKEN IN COMMAND LINE 
CMPL  #PTR_K_ENDLINE,RS SEND OF THE LINE? 
BEQL =: 128 :YES, GOTO 


EXIT 
CMPL § #PTR_K_COMDQUAL RS [COMMAND QUALIFIER? 
BNEQ 10$ sNO, CHECK NEXT TOKEN 
BSBW DCLSGETNVAL [GEf QUALIFIER NUMBER 
CMPB #CLISK_CLOS_LOG,RI [1S IT /LOG? 
10$ [NO, CHECK NEXT TOKEN 


CLRBIT WRK_V_CLOSERR,WRK_W_FLAGS2(R10) ;ASSUME /LOG 

#PTR_U_NEGATE-PTR-V-FLAGS,R3,10$ ;SKIP REST IF /LOG 
SETBIT WRK_O_CLOSERR,WRK-W-FLAGSC(R1O) ; INDICATE /NOLOG 
BRB 10$ 7CHECK NEXT TOKEN 


ROO Ry 8 8 8 a tt se st 4) 4 4 3 2 2 ts i as 2 ss 4 5s 5 4 5 8 — 2) —) a a so a a 
SOOO OOOOOWO OOOO 09090909 0909 09 09 09 8 NII NIN NN PA AAAAAAAA MINIT 
WR =O OONANEWN 0 OONOAUES WN $0 ODNOAUE WN OO OONOAUEWR —OOONAULS WOON 

—+ . e@e 

oS 

wr 

@ 

7) 

bs] 

< 


12$: MOVL (SP)+ RO ZRESTORE STATUS 
BRB 30$ 

208:  BSBW CHE CKPPF :CHECK FOR PROCESS PERMANENT FILE 
BEQL 0 :IF EQL, YES 

3 DELETE LOGICAL NAME. 

i PUSHL  #PSL$C_SUPER ;PUSH ACCESS MODE 
mova 7 [BUILD LOGICAL NAME DECRIPTOR 
MOVAB LNASPROCESS .RI [BUILD TABLE NAME DESCRIPTOR 
MOVZBL (R1)+,R : 
mOVa §~—s- RO, - ( §P) : 


—_—_—_——_——_——__——_———— 


cae 


[ 


COMMAND EXECUTION 


4 

$ ADOL 
10 MOVL 
11 MOVL 
\¢ MOVW 
1 MOVL 
14 MOVZBL 
15 SBW 
16 CLOSE 
17 30$: $B 


=(R9), (R7) 
PRC L. INDE AB (R11 


RABS “CTX+4(R9), ABSu aritee 
#<RABSC BLNeG+7>6°C<7>, Ri SET 


pci Sore Ab 
FAB=(R8) 


Be 


33:20:36 Ube YSaciP iL 


ro V04-00 
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sSAVE ADDRESS OF DESCRIPTORS 
;DELETE THE LOGICAL NAME 


ECLEAN STACK 


HS ad FILE DES tidy. dye LIST 


ADDR RESS 
SER 

T abor RESS 
LENGT 

:DEA ALLOCAT E 
CLOSE FILE 


T IN 
, 


in 


L 


OF BLOCK 
E DESCRIPTOR BLOCK 


OF 
TERNAL F 

OF BLOCK 

FIL 


DIRECT F 
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FILECMDS - FILE 1/0 COMMAND EXECUTION 15 =SEP-1984 AX/VMS Macro v04-00 Pa 4 
VOre600 OPEN FILE trSEp-19be S8:corde DR Mes Hegre NOe~00. - © 
A ? . .SBTTL OPEN FILE 
A : DCLSOPEN = OPEN FILE 
A § ; THIS ROUTINE IS CALLED AS AN INTERNAL COMMAND TO EXECUTE THE OPEN FILE DCLS 
- ¢ 3; COMMAND. 
. § 3; INPUTS 
A § : ‘ = ADDRESS OF SCRATCH BUFFER DESCRIPTOR. 
A ; = ADDRESS OF SCRATCH STACK. 
A 0; = BASE ADDRESS OF COMMAND WORK AREA. 
A 1: = BASE ADDRESS OF PROCESS WORK AREA. 
OA 5 : OUTPUTS: 
Bag 5: THE SPECIFIED FILE IS OPENED AND A FILE DESCRIPTOR IS CONSTRUCTED. 
BBA Bae 
OAS 8 DCLSOPEN: : ;OPEN FILE 
58 1¢ DO 00A5 MOVL  PRC_L_INDFAB(R11),R8 | :GET ADDRESS OF INDIRECT FAB 
92 AB B4 00A9 240 CLRW «= FABSWIFI(R8) CLEAR INTERNAL FILE INDEX 
6 AB BS OOAC 241 CLRW = FABSWTMRS(RB) SUSED FOR FLAGS TO OPEN CREATE’ 
10 AB DS «(OOAF 43 CLRL = FABSL“ALQ(RB) [CLEAR ALLOCATION QUANTITY 
14 AB a 082 4 CLRW  FABSWDEQ(RS) SCLEAR DEFAULT FILE EXTENSION QUANTITY 
16 AB 94 008 44 CLRB = FABSBFAC(R8) [CLEAR FILE ACCESS TYPE 
1 ag 94 00BB 245 CLRB  —« FABSB™SHR(RB) *CLEAR FILE SHARING 
04 03 FO O0BB 246 INSV —- #PSLSC_USER,AFABSV FILE MODE, :SET FILE ACCESS PROTECTION MODE 
4A AB 02 OOBE 247 #FABSS-FILE MODE, FABSB_ACMODES(RA) 
04 AB 00040000 8F 00 00C1 48 MOVL #FABSM~PPF FABSL FOP(RB) “SET FILE OPEN OPTIONS 
SAB FFSA CF 90 00C9 249 MOVE DFSPECTFABS$B_DN NSTR :SET SIZE OF DEFAULT NAME STRING 
0 aS FF3S5 CF 9 OCF 250 MOVAB DF SPECS I FABSL_DNA(R8) :SET ADDRESS OF DEFAULT NAME STRING 
AB 005 251 MOVB FABSC_SEQ PABSB. _ORG(R8):SET FILE ORGANIZATION ASSUMING CREATE 
EAB 94 0009 38 CLRB FABSD RAT(R ;CLEAR RECORD ATTRIBUTE TYPE 
1F AB = (0390 OD 5 MOVB = #FABST Wie FABSB_RFM(R8) ;SET RECORD FORMAT 
FFID' 30 OO 54 208:  BSBW DCLSGETDVA :GET NEXT DESCRIPTOR VALUES 
55 04 D1 ODE 55 CMPL PPTR _K TENDLINE, RS SEND OF LINE? 
03 1 OE6 36 BNE 1$ 7 ‘BRANCH IF NOT 
0089 31 O0€ 5 BRW 0$ [BRANCH IF DONE WITH SCAN 
55 00 D1 OeB 38 218: CHL #PTR_K_COMDQUAL ,R5 C0 MAND QUALIFIER? 
FEOD" 36 F 60 BSBW DCLSGETN [GET QUALIFIER NUMBER | 
51 00°8F 91 OOF 61 CMPB CLIK vOPEN. READ,R1 TREAD QUALIFER? 
1E 43 F 6¢ BEQL SIF EQL YES 
51 00°F 9 9 CMPB I1$K_OPEN_WRIT,R1 [WRITE QUALIFIER? 
0 13 OFD 64 BEQL ‘BRANCH IF YES 
51 00O°BF 91 OOFF 265 CMPB «= #CLISK_OPEN_APPE,R1 [APPEND QUALIFIER? 
1¢ «613 «01 3 66 BEQL [BRANCH IF YES 
51 00°SF 91 01 6 CMPB «ss @CLISK_OPEN_SHAR,R1 SSHARE QUALIFIER? 
2 13 0109 68 BEQL [BRANCH IF YES 
51 00° F 9 6 CRPE #CLISK_OPEN_ERRO,R1 ;SUPRESS ERROR PRINTOUT? 
36 AB 09 as 1] u BI Su é gf ABSu. MRS (RB) tYES. SET PARAM TO “OPEN_CREATE" 
16 A é fe 1? 73 10$: BISB  #FABSM GET,FABSB_FAC(R8) ;:MARK /READ EXPLICITLY SPECIFIED 
36 A AA 0118 BICW #1, FABSW_MRS(RB)~ ;USE SOPEN IN “OPEN_CREATE 
F 11 OF 75 11$ BRB 208 


“SEP= 47:49 VAX/VMS Macro V04-00 Page 7 
OPEN FILE. ee bans et 7 $3.25 46 DCL.SRCJFILECMDS.MAR; 1 (4) 
: “SET EOF ROP BIT ON CONNECT (/APPEND) 
3 A 4 } : zg —_ Btgs FP ees eS (Re) DEL! FABSM_UPD,FABSB_FAC(R8) :MARK WRITABLE 
if A 4 § 1 3 28 MOVB #FABSM“PRN,FABSB-RAT(RS) ;SET RECORD-ATTRIBUTE TYPE 
, a se 8 Bre ; RITE EXPLICITLY 
: 'FABSM_DEL!FABSM_UPD,FABSB_FAC(R8) :MARK /WRI 
if A 2 § 185 ; sa move TEABSACPRN FABER LRAT (RED :SET RECORD-ATTRIBUTE TYPE 
if A 1 as 01 ; ‘ BISW #1, FABSW_MRS(R8)~ ;USE S$CREATE IN 'OPEN_CREATE 
AF on Ot Rov ' T!FABSM_DEL!FABSM_UPD,FABSB. SHR(RB) ZASSUME /SHAR 
< 0 5 3 124 3 we CHP Re PTRCE COLON” © STDOES A VALUE FOLLOM /SHARE? | 
, i$ 146 $ BSBW DCLSGETDVAL [GET REQUIRED VALUE OF QUALIFIER 
reg? He 128 a CMPL =e. #4 ‘MORE THAN 4 CHARACTERS? 
ae ee 14C 9289 BLEQ © 29 ‘BRANCH IF NO 
51 i 06 166 90 MOVL #4,R1 STRUNCATE TO 4 CHARACTER KEYWORD 
17 As } $0 184 $3 vices nove Oren GET ,PABSB_SHR(RB) ;ALLOW OTHERS TO READ FILE 
FEAE CF 6 3 29 138 93 CPCS R (R73, READ :/SHARESREAD? | 
Ee 10 95 MOVE. #FABSM_GET!FABSM_PUT!FABSM_DEL!FABSM_UPD,FABSB_SHR(R8) ; ALLOW OTHERS | 
ost 9 164 9 CMPC3) R6,(R7T,WRITE —~ 3 /SHARE=WRITE? 
oe ae 5 $3 16A 29 Beal ~=s«éa:'18 SBRANCH IF YES 
. 1 98 STATUS IVKEYW s INVALID KEYWORD 
| ae 
: ,40$ :I1F /READ EXPLICITLY PRESENT 
ole Sy fae Set 19 63 en Bicw #1 FASSUCMASCREST cose SOPEN EVEN IF /WRITE SPECIFIED 100 
. “ AB $8 19D 88 40$:  TSTB  FABSB_FAC(RB) WERE EITHER /READ OR /WRITE SPECIFIED? 
16 A8 83 a8 182 $e B18 TPABSM_GET,FABSB_FAC(RE) cme SOME /READ IF NOTHING SPECIFIED 
186 88 ? eeeee WARNING, GETID RETURNS" VIA CO-ROUTINE CALL, NOTHING MAY BE ON THE STACK 
ise 800 i :GET FILE 1D 
ee ee ee ce TF LBS FILE ALREADY DEFINED 
- g § i c 311 MOVQ = RSL [SAVE LOGICAL NAME PARAMETERS 
6 83 4 18F 031 MOVZBL #RABSC_BLN+4,R1 :GET SIZE OF BLOCK REQUIRED 
“s “Ooh % 193 8 BSBWStC*O LSALCOYNMER :ALLOCATE FILE DESCRIPTOR BLOCK 
oa 59 at 13 AOVL ni.5 iSAVE ADDRESS OF ALLOCATED BLOCK 
- . 6 19 1 BSB tO ova 3GET FILE DESCRIPTOR VALUES 
ns 1 19F 13 MOVE =«R1, FABSB FNS (RB) [SET SIZE OF FILE NAME 
3¢ A 1A 1 MOVL R2.FABSL~FNA(RB) [SET ADDRESS OF FILE NAME 
g5 ‘ Re 143 8 MOVZWL FABSW_MRS(RB) RZ [GET FLAGS 
. 3 1AB 0 CLRY = FABSW7MRS(RB) “NO MAXIMUM RECORD SIZE : 
68 RB OIA 1 BIiSW #PRC R_DISABL .PRC_U_FLAGS(RI1) :DISABLE CONTROL y/¢ AST’S 
58 38 MD Ole § ROVE 5 .a [PASS OPEN/ CREATE FLAGS (LOW 2 BITS) 
; i 4 BSBW DCLSOPEN_CREATE TOPEN/CREATE THE FILE 
s$ FO OlBE 3 aovE RO S08 RO RR CURE RECORD FORMAT 1S UNDEF INED 
50 00038802 BF 00 018 ; D FORMAT 15, 
ee a © atte i a 
23 5 ta 1¢8 BLBS R2,70$ TBRANCH IF CREATE 
ite 2 : OPEN FILE FOR READ ACCESS 
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FILECMDS - FILE 1/0 COMMAND EXECUTION 15=SEP=1984 23:47:49 VAX/VMS Mac vO4=00 Page 
4 OPEN FILE arse TSB $825:98 HOR MES Mecre uOG-O0 ° 
2 if fi PUSHL SAVE FLAGS 
04 a9 08 BB 0044 tf 28 1D 5 Ove PRABSC BLN, @PRC_L_ INPRAB(RI11) .4(R §§ -COPY INPUT RAB 
BEDO 01D 8 OPL IRESTORE. PLAgs 
08 AS «4 «O01DB CLRL RABSL ROP +4 (RO) ;CLEAR ROP 
1752 03 €1 O1D : BBC : /APPEND? 
1E SETBIT RARSV. EOF ,RABSL_ROP+4(R9S ;SET EOF BIT FOR CONNECT 
10 11 O1€ 40 BRB sPERFORM THE CONNECT 
169 341 
1€9 4g : 
169 343 : SYMBOL TABLE OVERFLOW 
ue: 
169 346 50$: | STATUS SYMOVF :SET SYMBOL TABLE OVERFLOW 
05 01F0 23 60$:  RSB ; 
O1F1 348 
O1F1 49 ; 
O1F1 350 : OPEN FILE FOR WRITE ACCESS 
gt Bd 
04 A9 OC BB 0044 BF 28 SiFy 28 70$: MOvC #RABSC BLN, @PRC_L_OUTRAB(R11),4(R9) ;COPY OUTPUT RAB 
06 A9 B4 O1F9 354 758: CLRW  RABSW TSI rhc 9)" :CLEAR INTERNAL STREAM INDEX 
O1FC 3-355 SCONNECT RAB=%(R9 [CONNECT RECORD STREAM 
1E 50 «£8 0206 36 BLBS _—_—RO, 1008 [IF LBS SUCCESSFUL CONNECT 
0208 58 ; 
0209 359 : CONNECT OR LOGICAL NAME CREATION FAILURE 
8509 60 ; 
0209 361 
50 DD 0209 6¢ 80$:  PUSHL RO :SAVE STATUS 
62. & SCLOSE FAB=(R8) SCLOSE FILE 
50 BEDO 0214 364 POPL RO SRETREIVE STATUS 
0217 365 
0217 66 ; 
0 17 367 : OPEN FAILURE 
17 368: 
0 17 369 
50 DD 0217 370 90$:  PUSHL RO : SAVE STATUS 
50 59 00 0219 371 MOVL R9,RO SET ADDRESS OF BLOCK 10, DEALLOCATE 
51° 48 BF 9A OIC re MOVZBL #<RABSC BLNEG+7>6*C<7>, Ri :SeT SIZE OF BLOCK T 
FDDD' 30 6 g 7 BSBW DCLSDEADYNM :DEALLOCATE FILE DESCRIPTOR BLOCK 
50 8—D 74 POPL RO SRESTORE STATUS 
0 6 375 RSB ; 
; i 
4 28 : SET IMPLIED CARRIAGE CONTROL IN ISI VALUE 
7 he 
06 02 FO 7 1 100$: INSV #FABSM_CR,#RABSV_PPF Ral :SET IMPLIED CARRIAGE CONTROL 
06 A9 A é #RABSS_PPF_RAT,RABSW"1S $4(R9) 
D 4; 
D 5 : FILE SUCCESSFULLY OPEN = CREATE LOGICAL NAME AND MERGE INTO 
p $ + FILE DESCRIPTOR LIST 
51 28 ag 9 D } MOVL FABSL_NAM(R8),R1 7GET ADDRESS OF NAME BLOCK 
1 1 9 SUBL #16,SP TALLOCATE SPACE TO STORE DEVICE NAME 
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15-SEP-1984 47:49 VAX/VMS Macro v04-00 Page 
4-SEP-1984 93:40:36 CDCL.SRCJFILECMDS MAR: 1 ° 
MOVZBL NAMST DVI(R1),RO :GET LENGTH OF DEVICE NAME 
MOVG ; SAVE VOLATI E REGISTERS 
MOVC *NAMST pylet(Rt), ,8(SP)°:COPY DEVICE IDENTIFICATION 
MOVB AY (R : APPEND .s 
mova if SRESTORE VOLATILE REGISTERS 
PUSHL aes SCA APE” ‘BUILD INTERNAL FILE INDEX STRING 
OVW FABSW_IFI(R8),2<SP) : 
PUSHL #LNMSM_CONF INE :SET CONFINE NAME ATTRIBUTE 
PUSHL #LNMSM~ TERMINAL :SET TERMINAL TRANSLATION ATTRIBUTE 
BBC #NAMSV CNCL DEV [1S DEVICE CONCEALED? 
NAMSL _FNB(RT 0$ 3 
SETBIT LNMSV SCONCEALED, (SP) [SET CONCEAL ED TRANSLATION ATTRIBUTE 
PUSHL PPSLSt. SUPE ‘SET ACCESS MODE 
CLRO SP) ; TERMINATE THE ITEM LIST 
PUSHAB 30s) [BUILD EQUIVALENCE NAME ITEM 
PUSHAB 7SET LENGTH 
OVW  #LNM$_STRING,2(SP) 'SET ITEM CODE 
CLRL = = (SP) ‘BUILD TRANSLATION ATTRIBUTES ITEM 
PUSHAB 24(SP) :SET ATTRIBUTES ADDR 
PUSHL #LNMS_ATTRIBUTES@16+4 SET ATTRIBUTES CODE AND LENGTH 
MOVAB LNMSPROCESS, R1 :BUILD TABLE NAME DESCRIPTOR 
MOVZBL (R1)+,RO : 
MOVG RO LetgP) ; 
MOVQ = R6.=( SP) ‘BUILD LOGICAL NAME DESCRIPTOR 
SP,R1 :SAVE ADDRESS OF LOGICAL NAME DESCRIPTOR 
SCRELNM_ : TOGNAM=(R1).- [CREATE THE LOGICAL NAME 
ABNAM=8(R1),- : 
ITHesT=TecRiS .= : 
ACMODE=44(R1).- ; 
ATTR=52(R1) ; 
ADDL #20+<1424>,SP TRESTORE THE STACK 
BLB RO, 120$ TIF LBC CREATION FAILURE 
BRW 80$ ; 
mOVZL FABSU IFI(R8) ,RABSL_CTX+4(R9)_:RABSL CTX FABSW_IFI 
FABSB~ORG(R8) ,RABSL-CTX#244(R9) ;RABSL_CTX+2 = FABSB 
MOVE PRC_L~PPFLIST(R11),TR9) ; INSERT NEW FICE DESCRIPTOR Into LIST 
mOVL RO,PRC_L_PPFLIST(RI1) =; 


t <4 
FILECMDS - FILE 1/0 COMMAND EXECUTION 15*SEP=1984 23:47:49 VAX/VMS Macro v04-00 Pa 
Mivattn READ FILE arSEb 198 S8icorde Loe each ic ecMos oak: 1 - 
BE 4 ‘ — .SBTTL READ FILE 
BE 4 § t DCLSREAD = READ FILE 
BE 4 : : THIS ROUTINE IS CALLED AS AN INTERNAL COMMAND TO EXECUTE THE READ FILE DCLS 
Hy) ti0 3; COMMAND. 
BE 44] + INPUTS: 
BE rh : te = ADDRESS OF SCRATCH BUFFER DESCRIPTOR. 
BE 444: = ADDRESS OF SCRATCH ST ACK. 
BE 445: R10 = BASE ADDRESS OF COMMAND WORK AREA. 
BE 446 : R11 = BASE ADDRESS OF PROCESS WORK AREA. 
BE 448 : OUTPUTS: 
BE 450: A RECORD IS READ FROM THE SPECIFIED FILE AND STORED IN THE SPECIFIED 
0 BE 451: STRING VARIABLE. 
ar ae 
00000800 0 BE 434 MAXRECSIZE = 2048 ;MAXIMUM LENGTH OF INPUT RECORD 
8 +3 $28 DCLSREAD:: sREAD FILE 
8 . $38 ; **eee WARNING, GETID RETURNS’ VIA CO-ROUTINE CALL, NOTHING MAY BE ON THE STACK 
O3A2 3 0 BE 460 ° BSBW Ss GETID 3GET FILE IDENTIFICATION 
01 50 Ci 461 BLBS R0,5$ [BRANCH IF FILE SPECIFICATION IS OK 
024 46¢ RSB SEXIT WITH ERROR 
FD38" 30 02C5 463 5$ BSBW DCLSGETDVAL [GET DESCRIPTOR OF SYMBOL NAME 
53 51 7D 02CB 464 MOV =s-R1GR [SAVE SYMBOL NAME FOR POSSIBLE ERROR 
CB «465 STATUS SYMLN TASSUME SYMBOL IS TOO LONG 
QOOOOOFF BF 51 01 bg 46 CMPL = R1,8255 [SYMBOL NAME TOO LARGE? 
9 A 0209 46 BGTRU 108 31F GTRU YES 
56 51 7D 0208 468 MOVQ = R1,R6 [SAVE SYMBOL NAME DESCRIPTOR 
FDIF® 30 O2DE 469 BSBW DCLSCHKALPHA [CHECK IF FIRST CHARACTER IS LEGAL 
03 50 £8 0261 470 BLBS R0,20$ [IF LBS THEN YES 
029c 4931 «40264 «49471108: ~=BRW DSPXIT : 
Bt a 
O2E7 47% OBTAIN VALUES OF /KEY, /MATCH, /INDEX, /PROMPT, /TIME_OUT 
0 3 429 > AND PRESENCE OF /DELETE, /CNOILOCK 
£7 i3$ 50S: ASSUME RABSC SEQ EQ 0 
04 88 84 E7 478 CLRW sASSUME /NOTIME 
1E AD «94 «(OZEA 4? CLRB = RABSB_RAC(R9) TASSUME /KEY ASSENT (SEQUENTIAL READ) 
34 09 96 O2ZED 480 CLRB_  —« RABS$B~PSZ(R9) [NO PROMPT STRING SPECIFIED YET 
FO 481 SETBIT RABSV~PMT,RABSL_ROP(R9) : ASSUME PROMPT ING ENABLED, THOUGH 
FS 4 ; CLRBIT RABSV“NLK-RABSL-ROP(R9) : ASSUME 
0 FA 4 CLRBIT RABSVIRRL.RABSL-ROP(R9) ; ASSUME RECORD LOCK CHECKING ON READ 
Fe 484 CLRBIT RABSV-KGE ,RABSL-ROP(R9) ZASSUME /MATCH=EQ 
03 485 CLRBIT RABSV“KGT.RABSL-ROP(R9) : 
B 4 6 CLRBIT RABSV"ETO,RABSL—ROP(R9) £00. NOT USE THE TERMINAL XAB 
7E 04 ee CLRL. =(SP)™ UME /DELETE ABSENT (NO DELETION) 
BA AA F9B6 CA Hs fF 488 MOVAB WRK G_RESULT(R10) ,WRK_L ASUNKT R10) :RELOAD TOKEN POINTER 
FCEB* 3 13 489 30$:  BSBW DCLSGETDVAL :GET NEXT DESCRIPTOR VALUES 
55 04 D1 0318 490 CMPL  #PTR_K_ENDLINE,RS SEND OF LINE? 
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FILECMDS = FILE 1/0 COMMAND EXECUTION 15-SEP-1984 23:47:49 VAX/VMS Macro V04-00 Page 11 
voee600 READ FILE 278Ebr 198s 38:20:46 EOeL ac icecuos mars we 
03 1B 491 BNEQ 31$ ;SKIP IF MORE TO PARSE 
OOF i 1 49¢ BRW 60$ ;DONE WITH SCAN 
55 09 1 493 31S: cHPL #PTR_K_COMDQUAL ,R5 :COMMAND, QUALIFIER? 
FCDB" 36 495 BSBW = DCLSGETNVAL [GET QUALIFIER NUMBER 
51 O00°8F 91 8 496 CMPB #CLISK READ_KEY RI :/KEY QUALIFIER? 
B 13 C 49 BEQL 3 TBRANCH IF YES | 
51 OO°RF 91 : 498 cHPB I$SK_READ_MATC,R1 :/MATCH QUALIFIER? | 
46 13 499 BEQL «3 [BRANCH IF YES | 
51 O00°SF 91 4 500 CMPB =: ACLISK_READ_INDE,R1 :7INDEX QUALIFER? | 
F 613 8 501 BEQL 4 :BRANCH_IF YES | 
51 00°8F 9 A 0¢ CMPB = #CLISK_READ_PROM,R1 :/PROMPT QUALIFIER? 
. : 0 BEQL :BRANCH IF YES | 
51 00'8F 91 0 4 204 CHPE = #CLISK_READ_LOCK.R1 :/LOCK QUALIFIER? 
14 13 0344 505 BEQL 4 :BRANCH IF YES 
51 00°BF 91 0346 506 CMPB «9s ACLISK_READ_TIME,R1 :/TIME OUT QUALIFIER? | 
0B 13 034A 507 BEQL 44$ sBRANCA IF YES 
51 00°B8F 91 034¢ 208 CMPB =: #CLISK_READ_DELE.R1 :/DELETE QUALIFIER? 
C3 (12 0350 09 BNEQ SBRANCH IF | 
6€ 61 DO 0 3 510 MOVL #1,(SP) :MARK SDELETE TO BE DONE AFTER $GET | 
BE 11 0355 511 BRB (308 | 
0085 31 0357 218 44$:  BRW 50$ ;PROCESS /TIME_OUT QUALIFIER | 
8753 00 €1 035A 21% 45$: BBC #PTR_V_NEGATE-PTR_V_FLAGS,R3,30$ ;BRANCH IF /LOCK SPECIFIED (DEFAULT | 
O35 15 SETBIT RABSO_ALK,RABSL_ROPTRO) ; INHIBIT AUTOMATIC LOCKING ON GET 
0363 516 SETBIT RABSVRRL.RABSL-ROP(R9) ; INHIBIT RECORD LOCK CHECKING AS WELL 
ac 11 0367 317 BRB 30$ | 
FC94" 30 0369 519 35$:  BSBW  DCLSGETDVAL 3GET REQUIRED VALUE ON /KEY | 
34.09 51 90 036C 520 MOVB 1, RAB$B_KSZ(R9) SASSUME KEY IS A STRING 
30 a9 «552, «=O 0370) 521 MOVL  R2,RABSL~KBF(R9) 
1649 «(01 «090: «03745 : MOVB #RABSC_KEY,RABSB_RAC(R9) ;TELL RMS TO READ BY KEY | 
98 11 0378 ; ; BRB 30$ | 
FC83" 30 037A 3 5 33$:  BSBW  DCLSGETDVAL :GET REQUIRED VALUE ON /MATCH | 
62 4547 8F 81 037D 6 CMPW 0s #*A/GE/, (Ro) ; ? | 
91 1F 0382 527 BLSSU 308 NO, EQ (DEFAULT) | 
07 1A 0384 528 BGTRU 34$ NO, G | 
ae ie 0386 3 ° SeETBIT RABSV_KGE,RABSL_ROP(R9) :SET GE MATCH OPTION 
O36D 531 34$:  SETBIT RABSV_KGT.RABSL_ROP(R9) ;SET GT MATCH OPTION | 
81 11 392 é BRB 30$ 
Fcg9" 3 94 4 42$:  BSBW  DCLSGETDVAL :GET REQUIRED VALUE ON /PROMPT | 
30 a9 «52D 97 5 MOVL 2, RABSL_PBF (R9) [SET PROMPT ADDRESS 
34 a9 «82451 «090 «(0398 : MOVE  R1.RABSB~PSZ(R9) :SET PROMPT SIZE 
05 12 039F : BNEQ TBRANCH IF NON-NULL 
Al 8 CLRBIT RABSV_PMT,RABSL_ROP(R9) ;MARK NULL PROMPT BY TURNING IT OFF 
FF6C = 31 Ag 33 43$: BRW 30$ 
FC54° 30 O3A9 541 40$: BSBW  DCLSGETDVAL ;GET REQUIRED VALUE ON /INDEX 
54 51 7D O3AC 4g MOVa = R17, RG TSAVE DESCRIPTOR OVER CALL 
32 1 7D O3AF 54 MOVa = R1,R2 SSET DESCRIPTOR OF STRING TO CONVERT 
1 01 2A a 44 MOVZBL #PRC_K_DEC,R1 TSET RADIX FOR CONVERSION 
Fcag" B 45 BSBW LSCNDASCBIN :CONVERT DECIMAL ASCII TO BINARY 
Q 1 8 346 BNEQ SIF ERROR, REPORT INVALID VALUE 
3509 «519 A 54 MOVB &1,RABSB_KRF(R9) :STORE ISAM INDEX NUMBER 


FILECMDS E 15=SEP=1984 23:47:49 VAX/VMS Macro v04-00 Page 
104-600 FILE 2ree eT 8bs S8ichide YOR Mes Tec re ues Oe. ° 
FFSG 31 F 48 W 
C 4 328 STATUS IVCHAR s INVALID CHARACTER 
53 4 7D 03¢8 30 49$ ova RS tSET DESCRIPTOR OF ERROR TEXT 
—E 04 CO cB if ADDL  4#4.SP ‘POP /DELETE FLAG OFF STACK 
ce 38 | RESTORE RAB TO ORIGINAL STATE 
¢ 55 SETBIT RABSV_ETO,RABSL_ROP(R9) ;USE THE TERMINAL XAB_IN THE FUTURE 
0 D 36 CLRBIT RABSV-NLK,RABSL-ROP(R9) ;TURN OFF RECORD LOCK! 
D 5 CLRBIT RABSV-RRL.RABSL_ROP(R9) ; AND RECORD Lock CHECKING 
0106 31-0 DC 38 BRW DSPXIT SREPORT ERROR AND EXIT 
04 88 84 6 DF 560508:  CLRW @4(RB) ASS /NOTIME _OUT 
2653 00 €0 9 E2 561 BBS #PTR_V NEGATE-PTR. V FLAGS R3,52$ SKIP IF /NOTIME_OUT 
FC17" 30 0366 6¢ BSBW DCLSGE TOV 1 TIMEOUT 
54 51 7D O3E9 26 MOVa = R1,R GET ESCRIPTOR FOR POSSIBLE ERROR 
52 51S 7D SCOOBEC 564 MOVa ss R11 RS iSET IRESCRIPTOR OF STRING TO CONVERT 
51 01 DO O3EF 565 MOVL #PRC_K_DEC,R1 :D0 ASCII DECIMAL TO BINARY CONVERSION 
FCOB' 30 O3Fe 366 BSBW OCLSCNUNOEDIT [CONVERT THE STRING 
51 05 O3F 6 TSTL = RV [WAS VALUE NEGATIVE? 
16 19 O3F7 568 BLSS Bhs ‘YES, REPORT ERROR 
QOOOOOFF BF 51 D1 O3F9 569 CMPL = R11, #255 SVALUE > 255? 
0 14 0400 570 BGTR 55$ SYES, REPORT ERROR 
0488 51 90 0402 571 MOVB R1,a4(R8) ‘SAVE TIMEOUT COUNT 
04 88 4000 BF AB 0406 a7 BISW #*X4000,a4(R8) S INDICATE {TIME OUTPUT PRESENT 
FFO6 = 31 o40e 273 52$: BRW 30$ [CHECK eset TOKEN 
040F ae 55$: STATUS INVRANGE ;SET INVALID RANGE ERROR STATUS 
BO 11 0416 576 BRB 49$ SREPORT ERROR 
0418 577 
0418 578 
0418 579; 
0418 580 ; READ RECORD 
0418 581: 
0418 282 
0418 585 60S:  CLRBIT RABSV_TMO RABSL _ROP(R9) : ASSUME /NOTIME_OUT 
04 B8 4000 8F H 0410 284 BITw  #*x4000,a4(R ‘WAS A TIMEOUT T OALUE SPECIFIED 
OA 13 0423 585 BEQL 628 :NO, SKIP TIMEOU uP 
0495 586 SETBIT RABSV_TMO,RABSL_ROP(R9) :SEf TIMEOUT VALUE PRESENT FLAG 
1F AD «604 BBO O4gA 387 MOVB @4(R8),RABSB_TMO(R9) [SET TIMEOUT VALUE 
SE F800 ce 9E set at 62$:  MOVAB -MAXRECSIZE(SP),SP ZALLOCATE INPUT BUFFER ON STACK 
58 SE 00 0434 590 MOVL ADDRESS OF INPUT BUFFER 
20 a9 0800 BF B0 437 91 mov ES fate eae “SET SIZE OF RECORD BUFFER 
24 A 8 00 043D 3 MOVE RB_R ABs ADDRESS OF RECORD BUFF 
41 39 tet | s is a RABSL. CTX is set to FABSL_DEV for special PPF 
441 59% a6 His tike sissc 
20 1A A9 91 0441 595 RABSL CTX#2(R9) ryt tal idx yORG = ISAM? 
11 13 0445 596 ERPB 5 :1F°SO, SKIP SETTING OF PROMPT STRING 
34.09 95 0447 597 TSTB RABSB_ PS2(R9) SPROMPT STRING EXPLICITLY SPECIFIED? 
¢ fA 44A 98 BNEQ 5 SIF NOT, SET THE FOLLOWING DEFAULT 
34 Ag FBBO CF 90 044C 59 MOVE, DATAP, RABSB PSZ(R9) 3SET SIZE OF PROMPT STRING 
OA 3 ers CF H 452 600 MOVAB DATAP+1,RABSL_PBF(R9) SET ADDRESS OF PROMPT STRING 
AS 0458 601 658: isu #PRC_M_OISABL; PRC s *PLAGSERIID “DISABLE CONTROL Y/C AST'S 
4st rs é GET  RAB=TR ZREAD NEXT RECORD FROM FILE 
465 6 CLRBIT RABS ALD RABSL_ROP(R9) :TURN TIMEOUT PROCESSING OFF 
2¢ 50 £9 046A 604 BLBC SIF LBC 1/0 ERROR 
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f LECMDS - FILE 1/0 COMMAND EXECUTION 13-SEP-1984 2 :47:49 VAX/VMS Macro V04-00 Page 14. 
WRITE FILE 4-SEP=1984 23:40:36 CDCL. SRCJFI ILECMDS.MAR; 1 (6) 
4AD 6 $ .SBTTL WRITE FILE 
4AD 627 ;¢ 
e 6 8 : DCLSWRITE = WRITE FILE 
4AD 630 ; THIS ROUTINE IS CALLED AS AN INTERNAL COMMAND TO EXECUTE THE WRITE FILE DCLS 
4AD 631 ; COMMAND. 
4AD 6 § 5 
4AD 6 ; INPUTS: 
QO4AD 634; 
4AD 635 ; RB = ADDRESS OF SCRATCH BUFFER DESCRIPTOR. 
4AD 6 $ ; RQ = ADDRESS OF SCRATCH STACK. 
4AD 637; R10 = BASE ADDRESS OF COMMAND WORK AREA. | 
sp 6 8 : R11 = BASE ADDRESS OF PROCESS WORK AREA. | 
04AD 640 ; OUTPUTS: | 
Q4AD 641 ; “i 
04AD 648 ; THE SPECIFIED LIST OF STRING VARIABLES IS COLLECTED TOGETHER INTO A 
O4AD 643; SINGLE RECORD AND WRITTEN TO THE SPECIFIED FILE. 
O4AD 644; 
04AD 645 
Q4Ad 646 DCLSWRITE:: ;WRITE FILE 
te o48 : teeee WARNING, GETID ‘'RETURNS'' VIA CO-ROUTINE CALL, NOTHING MAY BE ON THE STACK 
0183 30 O4AD 650 BSBW = GETID :GET FILE IDENTIFICATION 
0150 £8 0480 651 BLBS _R0O,1$ SBRANCH IF OK 
05 O4B5 63¢ ‘RETURN WITH ERROR 
0436 63% : CHECK FOR PRESENCE OF /SYMBOL OR /UPDATE 
56 D4 0484 656 is: CLRL = R6 SSUME /UPDATE ABSENT (NO SUPDATE) | 
BA AA F9B6 CA 9E 0486 657 MOVAB WRK_G RESULT(RI0), WRK_L ASLINT RIOD :RELOAD TOKEN POINTER | 
FB41° 30 O4BC 658 2$: BSBW DCLSGETDVAL “;GET N T DESCRIPTOR VALUES 
55 03 01 O4BF 659 CMPL Oot R _k  PARAMETR, RS SEND OF MT ARES 
1E 13 04C2 660 BEQL 6«SS$ ‘BRANCH IF DONE WITH SCAN 
55 00 01 04C4 661 CMPL § #PTR_K_COMDQUAL,R5 ‘COMMAND QUALIFIER? 
F312 O4C7 66 BNEQ 2$ [IF NEQ NO 
FB34' 30 0409 66 BSBW DCLSGETN [GET QUALIFIER NUMBER 
51 OO°BF 91 O4CC 664 CMPB #CLISK TORI _UPDA,R1 :/UPDATE QUALIFIER? 
05 12 9409 665 BNEQ ‘BRANCH IF NOT 
56 02 88 0402 666 BISB 3, R6 :MARK SUPDATE TO BE DONE, NOT $PUT 
ES 11 0405 667 BRB 
51 O00O°SF 91 0407 668 3$: CMPB ss @CLISK_WRIT_SYMB,R1 :/SYMBOL QUALIFIER? 
DF 12 408 669 BNEQ [IF NEQ, N 
56 01 88 O04DD 670 BISB #1, R6 [MARK /SYMBOL SEEN FLAG 
DA 11 O4e9 671 BRB 2$ 
i ors ; GET SYMBOLS OR EXPRESSIONS AND CONCATENATE THEM IN THE OUTPUT BUFFER 
7E 56 DO O4€2 675 5$ MOVL R6,-(SP) : STORE /UPDATE AND /SYMBOL FLAG 
58 5E D0 O4E 676 MOVL R SET ENDING ADDRESS OF OUTPUT BUFFER 
SE F800 ce 9E 0468 67 MOVAB -MAXRECSIZE(SP),S tALLOCATE THE OUTPUT BUF FER ON THE STACK 
28 A9 «= SE- = «Os«éOOGED 678 MOVL  SP,RABSL_RBF ( Ros ;SET ADDRESS OF OUTPUT BUFFER 
57 5E p 4F1 67 MOVL SPR 
F809" 4F4 680 10$:  BSBW DCLSGETDVAL GET DESCRIPTOR VALUES 
56 54 DO O4F7 681 MOVL R4.R [SAVE TERMINATOR CLASS NUMBER 
GFA 682 STATUS BUFOVF SASSUME OUTPUT BUFFER WILL OVERFLOW 
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FILECMDS = FILE 1/0 COMMAND EXECUTION 15=SEP=1984 23:47:49 VAX/VMS Macro V04-00 Page 
04-000 URITE FILE tree 188s Seicoide YOR VES Magra yOe-O8. ° 
5351 «7D «(0501 «= 683 MOV ~—s R13 ZSAVE VALUE DESCRIPT. FOR POSSIB. ERROR 
25 68 «ED 3 4 : 4 BLBC ~—_-« (RB) , 308 SIF CLEAR, VALUE IS AN EXPRESSION 
56 04 v1 0507 6 5 CMPL  #PTR_K_PLUS,R6 :1S TERMINATOR A ‘+ 
08 if SOA 6 BNE 208 ‘BRANCH IF NO 
53 06 050C:~«C6 : INCL R SINCLUDE '+' IN ERROR MESSAGE 
5 68 STATUS NOCCAT ‘SET CONCAT. NOT ALLOWED ERROR MSG. 
67 (11 AE 690 90$ SREPORT ERROR 
62 22 91 0517 6¢ 20$: CMPB #*A/"'/,(R2) :1S THIS A QUOTED STRING? 
1 siA 69 BNEQ 258 ‘NO, IT MUST BE A SYMBOL 
FAE ' 30 051C 694 BSBW DCL SCOMPSTRING [YES, COMPRESS STRING BEFORE COPYING 
B 11 AL 699 BRB [COPY STRING 
19 es 521 697 25$: PUSHR #*M<RO,R3,R4> :SAVE SYMBOL DESCKIPTOR AND STATUS 
FADA' 30 0523 698 BSBW DCLSS¥A STRING SEVALUATE SYMBOL 
19 BA 05 6 699 POPR “m<RO,R SRESTORE SYMBOL DESCRIPTOR AND STATUS 
51 DS (05 700 TSTL RI [SYMBOL DEFINED? 
48 (13 08 A 701 BEQL 608 -~ ‘NO, REPORT SYMBOL NOT FOUND 
51 v7 052C 703 30$: DECL_ Ri sANY MORE CHARACTERS TO MOVE? 
0A «619 «(05 704 BLSS 408 SIF L 
58 57 D1 05 6 705 CMPL = R7,, RB [ANY ROOM IN OUTPUT BUFFER? 
49 13 0533 «706 BEQL SIF EQL NO 
87 82 90 0533 107 move (R2)+,(R7)+ ;MOVE CHARACTER TO OUTPUT BUFFER 
56 05 Di 053A 709 408:  CMPL #PTR_K_COMMA,R6 ZANY MORE PARAMETERS TO COLLECT? 
BS 13 053D 710 BEQL 108 ~ F EQL YES 
57 28 a9 C2 OS3F 711 SUBL § RABSL_RBF(R9),R7 CALCULATE LENGTH OF OUTPUT RECORD 
22 a9 ««557~—s«&BO 0543 ri MOVW  R7,RABSW_RSZ(R9) ‘SET LENGTH OF OUTPUT RECORD 
68 AB 04) «AB «(0547~)—C 714 BISW HPRC M_DISABL,PRC_W_FLAGS(R11) ;DISABLE CONTROL Y/C AST'S 
OF 68 O01 €1 0548 £13 BBC , (REY, 78$ sBRANCH IF NOT /UPDATE 
O54F at + UPDATE RECORD 
054F 719° SUPDATE RAB=(R9) SUPDATE RECORD 
SE 0804 CE 3E 0598 720 MOVAB MAXRECSIZE+4(SP) ,SP SRESTORE THE STACK PTR 
SSE 722: 
033 728 : OUTPUT RECORD 
055€ 725 78$: 3888 This a bug. RABSL 5cTh is set to FABSL_DEV for special PPF 
ee: ? 6 ieee ise" tike $ sis COMMAND 
20 1AAd 91 05 : 7 tmp RABSL_CTX+2(R FABSC. Tox sORG = ISAM? 
04 fs 056 7 : BNEG ANCH IF NOT 
1609 01 90 0564 7 MOVB $#RABSC_KEY,RABSB_RAC(R9)’ ; IF ISAM ALWAYS INSERT IN KEY ORDER 
68 7 p 45$:  $PUT  RAB=(R9) :OuTPUT 
SE 0804 CE 9 0371 , MOVAB MAXRECSIZE+4(SP) , SP SRESTORE THE STACK PTR 
ae : 
577,735 UNDEFINED SYMBOL 
4 
327 , g 60$: STATUS UNDSYM :SET UNDEFINED SYMBOL STATUS 
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5E 


F48A 
F486 CA 


0804 CE 
CA 54 
54 553 
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COMMAND EXECUTION 15-SEP-1984 tt 47:49 VAX/VMS Macro V04-00 
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m9 90$: MOVAB MAXRECSIZE+4(SP),SP RESTORE THE STACK PTR 

742 ; 

28 ; CALCULATE ADDRESS OF DISPLAY SEGMENT AND CLEAR COMMAND IN EXECUTION 


746 DSPXIT: MOVL 
29 ADDL3 


R4,WRK_L_MARKPTR(R10) ;SET ADDRESS OF DISPLAY SEGMENT 
R3,R4,QRR_L_EXPANDPTR(R10) i GAL LCULATE ENDING ADDRESS 
748 CLRBIT WRK_V “COMMAND WRK_W_FLA Ags (Ri SDISPLAY ERROR TEXT WITH 


749 RSB ; 


ie 


OF 
TH 
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LE 1/0 COMMAND EXECUTION 15-SEP-1984 j :47:49 VAX/VMS Macro v04-00 Page 1 
-000 DCLSOPEN_CREATE = OPEN/CREATE FILE 4-SEP-1984 23:40:36 (CDCL.SRCIFILECMDS.MAR;1 ( 
2 2 1 : .SBTTL OCLSOPEN_CREATE = OPEN/CREATE FILE 
3 f § ; DCLSOPEN_CREATE = OPEN/CREATE FILE 
93 755: THESE ROUTINES OPEN AN EXISTING FILE OR CREATE A NEW OUTPUT FILE 
93 7 8 : GIVEN A FAB WHICH IS ALREAD vet UP TO CALL THE SOPEN OR S$CREATE 
93 757; +h SERVICES DIRECTLY. IN ADDITION TO PERFORMING THE SPECIFIED 
29 f 8 : RMS SERVICE THIS CODE * PRODUCES GOOD ERROR MESSAGES. 
593 760 ; INPUTS: 
593 761: 
39 762 ; 0 = FAB ADDRESS 
39 ie? : “. Bit 0 = 0 FOR OPEN 
P = 
593 765: =1F 
593 766: BIT 1 = 0 FOR NORMAL ERROR REPORTS IF ERROR 
593 767: = 1 IF NOT SUPPOSED TO ISSUE ERROR REPORT 
593 768: BIT 2 = 0 FOR NORMAL RESU u FILE SPEC PROCESSING 
0593 769 : 1 IF RESULT STRING BUFFER IS ALREADY SPECIFIED 
099 770 ; BIT 3 = USED LOCALLY BY DCLSOPEN 
593 771: 
059 772 ;: 
b29 ae ; IMPLICIT INPUTS: 
0593 775: FABSL_FNA AND FABSB FNS DESCRIBE THE FILE NAME STRING 
059 276 : FABSL-NAM POINTS TO-A NAM 
0593 «777: THE NAME BLOCK IN PURN HAS NO RESULT STRING OR EXPANDED STRING 
0593 =778: ADDRESS SET U 
593 779: 
39 700 3 OUTPUTS: 
059 782 ; RO = STATUS - IF ERROR, INIHIBIT MSG BIT IS SET 
59 £8 : R1 ALTER 
39 , 4 : ALL OTHER REGISTERS PRESERVED 
0593 «7 6 
593 787 BCLSOPEN CREATE: 
1C 88 593 788 PUSHR  #*M<R2,R3,R4> i SAVE SOME REGISTERS 
52 50 7D 0595 789 MOVQ = RO, R2 =FAB AD 
398 790 RS=OPEN/CREATE, ERR REPORT FLAGS 
54 28 a2 p0 0598 791 MOVL FABS| NA NAM(R2) R4 :NAME BLOCK ADDRESS 
1753. 02 €0 059¢ 79 BBS :BRANCH IF ESA/RSA ALREADY SPECIFIED 
SE FFOO CE DE O5SA0 79 MOVAL =<<NAM ase “MAMAS +390°C<395.50) SP ;RESERVE NAME STRING BUFFER 
Ad 3 D 3A3 79% MOVL SP.NAMSL“R :SET RESULT NAME STRING ADDRESS 
CaS) 655E)0 «60s (05A9 Ss 795 MOVL SP. * NAMSL “ERA Ra) :SET EXPANDED NAME STRING ADDRESS 
SAD 679 ASSUME Ase RSSe1 EQ NAMSB_RSL 
02 a4 «#=FF 8F 98 O5AD 79 MOV7BW OMAR C_MAXRSS ,NAMSB_RSS(R4) ;RESULT STRING BUFFER SIZE 
5B2 79 ERO RESULT STRING LENGTH 
38 79 ASSUME NAMSB_ESS*+1 EQ NAMSB_ESL 
OA AG) «OFF 8F)0 oO9B:s«058 9 MOVZBW #NAMSC_MAXRSS ,NAMSB -ESS(R4) sEXPANDED STRING BUFFER SIZE 
58 ERO EXPANDED STRING LENGTH 
08 53 +€8 0587 ; 10$: BLBS R3,20$ ANCA IF CREATE FUNCTION 
384 SOPEN (R20) [OPEN THE FILE 
09 «11 C3 4 RB 0 
3 5 08: CREATE (R2) ZCREATE THE FILE 
4a 50 €8 aC 6 $:  BLBS  R0,80S *BRANCH IF SUCCESSFUL 


G6 5 
FILECMDS - FILE 1/0 COMMAND EXECUTION 15-SEP-1984 AX/VMS Macro v04-00 Page 1 
Mvett DCLSOPEN_CREATE = OPEN/CREATE FILE 4-5 oats $32 +t: } DCL.SRCJFIL Ec MDS.MAR;1 ° 3) 
pt 08 ; ERROR OPENING OR CREATING THE FILE 
4 a6 0D 0501 19 : PUSHL NAMSL_RSA(R4) yADDRESS OF RESULT NAME STRING 
7E O03 AG 9A 0504 81 MOVZBL NAMSB-RSL(R4) ,-(SP) SRESULT STRING SIZE 
OF 12 0508 1g BNEQ 0 SBRANCH IF THERE WAS A RESULT STRING 
6— OB AG 9A O5DA_ 81 MOVZBL NAMSB_ESL(R4), (SP) s EXPANDED NAME STRING 
09 iF 30 14 BNEQ sBRANCH IF THERE WAS AN EXPANDED NAME STRING 
04 AE eC A p E 15 MOVL FABSL_FNA(R2),4(SP) SUSE ORIGINAL FILE NAME, SET 
6 344A A 3E 16 MOVZBL FABSB-FNS(Re), (SP) sSIZE OF ORIGINAL NAME 
369 18 : NOW BUILD THE PUTMSG PARAMETER LIST 
OC A2. DD 268 0 50s: PUSHL FABSL_STV(R2) :STV FOR THE RMS ERROR CODE 
50 DD OoeC 1 PUSHL RO ‘RMS ERROR CODE 
08 AE 7F OS5EE g PUSHAQ 8(SP) SADDRESS OF FILE NAME STRING DESCRIPTOR 
01 D O5F1 PUSHL # “FAO ARGUMENT 
03 BO O5F3 4 #<CLI$ NORMAL & STSSM_FAC =NO>9=16,=(SP) _ ;PUT IN CLI FACILITY CODE 
0002"8F BO O5F6 ; 5 MOVW #<<SHRS_O N& tReet Sen EVERITY>> ! 
SFA ° <STS$K TERROR, 5 STS$V_ SEVERITY3> (sh : ASSUME FUNCTION IS OPEN 
0553 €9 O5tB 8 BLBC a, Tis o 
0002'8F 680 OSFE 828 MOVW § #<<SHRS$_OPENOUT & “C<STS tsime SEVERITYL> lo 
060 829 <STS$K_ERROR @ STSSV_SEVERTTY>>, (SP) ;1T WAS A CREATE 
05 OD 0603 830 60S: PUSHL # SNUMBER OF PARAMETERS TO PUTMSG 
0653 01 £0 0605 831 BBS #1,R3,70$ ‘BRANCH IF NOT REPORTING ERROR 
50 OSE 00 0609 Be MOVL  SP.RO TADDRESS OF PUTMSG PARAMETER LIST 
FOF1* 30 060C 83 BSBW  ©DCLSPUTMSG DO THE PUTMSG CALL 
50 10 AE 10000000 BF (9 O60F 834 70$: BISL3 PSTSSM. INHIB_MSG, 16(SP) sh -RECOVER THE OBEN ERROR CODE (sts? 
SE 20 CO 0618 836 ADDL  #<6*4+8>,SP [CLEAN OFF THE PUTMSG ARG LIST 
0618 837 ZAND TH He FILE NAME DESCRIPTOR 
0B 53 02 €0 0618 838 80S: BB #2 “BRANCH IF ESA/RSA ALREADY SPECIFIED 
SE 0100 CE ODE O61 839 MOVAL CCHAREC RAXRSS 396° C<3D>iSP), & ZNAME STRING SIZE TO RESERVE 
02 a4 BG eT 841 CL NAMSB_RSS(R4) ~ "" SCLEAN UP THE NAME BLOCK 
06¢7 BAe ASSUME NAM$B-ESS+1 EQ NAMSB_E 
OA AG) «6B4 «O0627)— 84 CL NAMSB~ESS(R4) NAME STRINGS ARE NOT VALID 
1C BA 062A B44 90$ POPR #*M<R2Z,R3,R4> “RESTORE SAVED REGISTERS 
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r .SBTTL LOCAL SUBROUTINES 
; CHECKPPF = CHECK FOR PROCESS PERMANENT FILE 
; THIS ROUTINE IS CALLED TO CHECK IF AN ISI VALUE IS FOR A PROCESS PERMANENT FILE. 
> INPUTS: 
R6 = ISI VALUE. 
OUTPUTS: 
2 = 0 IF NOT PROCESS PERMANENT FILE. 


Z = 1 IF PROCESS PERMANENT FILE WITH: 


ER" 


2a 
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09090969 0909 SI NIN NINN SN NN PAA AAA AAA A UMMM 
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PAA AHIGPOPPYDIRIPYNINNNIPYPIPIPINIPOPINIPYININPY 


OoorowvovVTVTVTVTVT VV VTVTVTCTCC0—C0C0"C0C0C0—€8 


MESWN — OOCONAUES WN 2 OOONAUE WN" QOOONOULSUMN—O0OOnN Z 


f RS = ADDRESS OF ASSOCIATED RAB. 
8 
8 CHECKPPF : sCHECK FOR PROCESS PERMANENT FILE 
51 OOAO CB DO 8 MOVL PRC_L_STACKPT(R11) ,R1 :GET CURRENT INDIRECT STACK POINTER 
55 14 AB v}t) MOVL PRC_L IND INPRAB(R11),R5 ;GET ADDRESS OF CURRENT INPUT RAB 
04 A1 56 81 CMPW 3=s«R6 , TOF_W_INPIFI(R1) s1FI MATCH? 
26 «13 BEQL [IF EQL YES 
55 18 AB 00 & MOVL § PRC_L_INDOUTRAB(R11),R5 :GET ADDRESS OF CURRENT OUTPUT RAB 
20 Al 56 Bi 8 CMP R6 TOF _W_OUTIFI(R1) sIFI MATCH? 
ic 13 0644 8 - BEQL =s:«+10$ tIF EQL YES 
61 05 0646 8 TSTL IDF_L_LNK(R1) ;AT OUTER COMMAND LEVEL? 
05 13 0648 8 BEQL 
51 61 DO 064A 8 MOVL IDF _L_LNK(R1),R1 sPOINT BACK ONE LEVEL 
F711 0640 : BRB 4$ 
55 08 AB DO O064F 8 MOVL PRC_L_INPRAB(R11),R5 sGET LEVEL-0 (SYSSCOMMAND) INPUT RAB 
04 Al 56 B1 0653 8 CMPW R6 TOF_W_INPIFI(R1) s1FI MATCH? 
09 #13 0657 «8 BEQL [IF E€QL YES 
55 OC AB DO 0659 8 MOVL PRC_L_OUTRAB(R11),R5 3GET LEVEL-0 OUTPUT RAB 
0114 (cB 4256) «=6B1 «2(065D— 88 CMPW = s«R6 , PRE_W_OUTIFI(R11) s1FI MATCH? 
05 0662 885 10$: SB ; 
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FILECMDS - FILE 1/0 COMMAND EXECUTION 15-SEP-1984 :49 AX/Vi $ Macro V04-00 Page 20 
Mvatty LOCAL SUBROUTINES 2786-138 33:05 :36 Yet SRCJFILECM DS.MAR; 1 v %) 
6 7 3¢ 
6 3 ; GETID = GET FILE ID 
$8 0 : THIS ROUTINE IS CAL LED TO CONVERT THE FILE IDENTIFIER TO BINARY AND SEARCH THE 
4 3 FILE DESCRIPTOR LIST FOR A MATCH. 
66 38 t INPUTS: 
66 94 ; 
66 95; NONE 
6 38 5 
66 3 > OUTPUTS: 
6 $3 ; RO LOW BIT CLEAR INDICATES FAILURE TO FIND SPECIFIED FILE ID. 
$01 : RO LOW BIT SET INDICATES SUCCESSFUL FILE DESCRIPTOR LIST SEARCH WITH: 
308 ; R3 = LENGTH OF LOCIAL FILE NAME 
904 : R4 = ADDRESS OF LOGICAL FIL 
905 : RS = ADDRESS OF FILE DESCRIPTOR BLOCK. 
9 $ ; R6 = FILE IDENTIFICATION NUMBER 
907 ; R7 = ADDRESS OF PREVIOUS FIL LE DESCRIPTOR. 
908 ; R9 = ADDRESS OF ASSOCIATED 
310 ; WRK_L_RSLNXT IS SET TO THE NEXT PARAMETER AFTER THE FILE ID. 
912 © 
318 GETID GET FILE ID 
BA AA F9B6 CA 3 914 MOVAB WRK_G RESULT(R10), WRK_L _ASENKT RIOD :RELOAD RESULT DESCRIPTOR POINTE. 
F994" 3 915 10$: BSBW bcL se ETD “;GET DESCRIPTOR VALUES 
55 03 01 916 CMPL = #PTR_K  PARAMETR, RS [PARAMETER DESCRIPTOR? 
FB o12 91 8 10$ ~ :1F NEQ NO 
53 51 =D 918 MOVa = R1, RB [SAVE LOGICAL FILE PAR AME TERS 
ze 51 7D 919 va = R1, = (SP) TBUILD LOGICAL NAME DESCRIPTOR 
5 — 00 920 MOVL P-RS TSAVE ADDRESS OF LOGICAL NAME DESCRIPTOR 
56 FF BF OA 921 MOVIBL #LNMSC_NAMLENGTH,R6 [GET MAXIMUM LENGTH OF LOGICA L NAM 
SE 56 C2 9 : SUBL -R6, SP TALLOCATE LOGICAL AME TRANSLATION BUFFER 
oF 3 ; PUSHAB (5 (SP) ;BUILD TRANSLATION BUFFER DESCRIPTOR 
56 3E 09 ; 5 mOVL SPR i SAVE ADDRESS OF pOUFFER DESCRIPTOR 
9 $ 208: STRNLOG. S. (a5). (RS), (RO) : TRANSLATE LOGICAL NAME 
50 09" 8! 9 8 CPW $" NORMAL ,RO NORMAL COMPLETION? 
4 2 9 BNEQ ” NO 
65 04 1 4 9 CMPW 04, (RS) : TRANSLATED NAME LARGE ENOUGH? 
A BGTRU G 
08 a6) «Oo 1B) st 9 : CMPW 38=s-s BESCAPE,, 8(R6) :PROCESS PERMANENT FILE IF 1? 
OA 13 9 BEQL OL YES 
04605 0446 D 934 30$: MOVL (RG) 4 (RS) :SET FOR NEXT TRANSLATION 
D5 $3 ‘3 ; § SoBGTR ZANY MORE TANSLATIONS LEFT? 
56 OA a6 «BO 9 $ 408: MmOVW tte (R6) ,R6 °GET INTERNAL FILE I 
SE 010F ce 9 § MOVAB LNMSC NAMLENGTH*8+8(SP) SP :REMOV E. LOGICAL NARES FROM STACK 
FFGS 95 BSBu H HE CKPPF “Tovkce iF ROCESS PERMANENT FILE 
57 70 AB 8e9 MOVAB PRC L L PPFLIST(RI1), R? GET ADDRESS OF PREVIOU FILE DESCRIPTOR 
55 & D 4g 50$ MOVL TR iGET ADDRESS OF NEXT FIL ve DESCRIPTOR 
mam 94 BEQL 86-8 5$ SIF EQL END OF LIST 
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FILE 1/0 COMMAND EXECUTION 15-SEP-1984 : 47:49 VAX/ Vis Macro v04-00 
CAL SUBROUTINES 4-SEP-1984 23:40:36 CDCL.SRCJFILECMDS.MAR;1 
1¢ AS : CF 6944 CMPW 3s RG, RABSL_CTX#4(R5) sFILE IDENTIFICATION MATCH? 
D 45 BEQL § s1F Edt YES 
57 : p p 46 MOVE R5,R7 ‘SAVE ADDRESS OF PREVIOUS ENTRY 
$3 05 ODA 48 0s: TSTL «= (RS) + [POINT TO ACTUAL RAB 
59 DO 06DC 949 70$: mMOVL  RS.RO SSET ADDRESS OF ASSOCIATED RAB 
oF 30 STATUS NORMAL :SET NORMAL COMPLETION STATUS 
OC 11 O6E BRB 90$ : 
SEB 988 
re) 935 3; FILE IDENTIFICATION NOT FOUND 
6E , 
SE O10F CE 9E 06€ 939 80$ MOVAB LNMSC_NAMLENGTH+8+8(SP),SP :REMOVE LOGICAL NAMES FROM STACK 
SED 928 85$ STATUS UNDFIC 7SET UNDEFINED FILE STATUS 
6F4 960; 
6F4 961 ; CALL THE CALLER BACK AS A CO-ROUTINE SO THAT /END= AND /ERR= QUALIFIERS CAN BE 
6F4 96¢ 3 PROCESSED IN ONE PLACE. 
ore ea | 
3 16 bere 965 90S: JSB a(SP)+ ;CALL CALLER BACK 
21 5 e O6F6 966 BLBS RO, 1108 :IF LBS SUCCESSFUL COMPLETION 
57 O0°RF SA 06F9 96 MOVZBL #CLI$SK OPEN END_,R7 SASSUME END OF FILE 
50 00000000°8F 01 orb 96 CMPL #RMS$_EOF RO sEND OF FILE? 
0 12 04 96 BNEQ 1008 :1F NEQ NO 
1 1 706 970 BSBB LABEL CHECK [CHECK FOR END OF FILE LABEL 
57 00°8F 9A 0708 971 100%:  MOV2BL #CLISR_OPEN_ERRO,R7 [SET FOR ER 
0D 19 a: 376 8S8B ABEL_CHECK :CHECK FOR gRROR LABEL 
O7 F2 AA O02 C 708 97 BBCC #WRK_O_CLOSERR,WRK_W_FLAGS2(R10),110$ ;SKIP IF /LOG 
0713 97% STATUS NORMAL SOTHER SUPPRESS ERROR MESSAGE 
0S O71A 975 1108: RSB ; 
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- FILE 1/0 COMMAND EXECUTION 15-SEP-1984 vas Macro VO4-00, 2, 
vate LOCAL SUBROUTINES 46-SEP-1984 33:05 40: } DCL. SRCIFILE 
rig Hh LABEL. CHECK = CHECK FOR LABEL 
1B : EVEL QUALIFIERS FOR AN /ERROR= 
; THIS ROUTINE IS CALLED TO SCAN THE COMMAND L 
a 3 3 F oF Seng “OF _FILE= QUALIFIER, 
at 4 § : INPUTS: 
: R7 = TYPE OF QUALIFIER 10, SCAN FOR. 
ne 386 ; RB = SAVED FINMC STATUS VACGEN 
He i oo PE MATCH. IF A MATCH 
: ANNED FOR A QUALIFIER TY : 
ne 394 : Is Ouaee THEM A GORD THE 35 PEC CHFIED LABEL IS EXECUTED. ELSE A RETURN TO 
718 936 : THE POALLER 1S EXECUTED. 
718 - | 
71B «99% 
Tie apg CABEL ACHE CE: ASCNKT RIOD” RELOAD RESULT DESCRIPTOR POINTE. 
BA AA F986 cA 9€ 0718 996 NOVAB WRK G_ RESULT(R10) ,WRK_L ASLNXT (R10) “:RELOAD RESU 
8 apo: y s, 88 10$:  BSBW  DCLSGETDVA GET next DESCRIPTOR VALUES 
55 by D1 ; ; 399 "(MPL ss #PTR_K "ENDLINE, RS END OF DESCRIP TORS? 
sf tt Ra IPB BBhe cnwaun.ns ill a rte 
F312 «O7OF 1 BNEG 108 ~ TENE NO. f 
oP BD BB taper LIPTON 
50 58 ; , i os AONE 108 RO :AESTORE ERROR STATUS CODE 
BE 1B RR Rifftaw.suns EAL Re idan stax 
F of. 83 ta 1 } BRW DCL$GOTO i EXECUTE GOTO, aaah 
50 et 00 744 1010 20$:  MOVL R8.RO 
OF Orta 101 _ ; 
0748 1918 END 
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RMS$_EOF 
SHR$_OPENIN 
SHR$-OPENOUT 
SS$_RORMAL 
STSSK_ERROR 
STSSM_FAC_NO 
STSSM_INHTB_MSG 
STSSM_SEVERTTY 
Stssy SEVERITY 
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SYSSDELLNA 
SYSSGET 
SYSSOPEN 
SYSS$PUT 
SYSSTRNLOG 
SYSSUPDATE 
WRITE 
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PSECT name Allocation PSECT No. Attributes 
ABS ‘ Prereree ( 0.) 00 ¢ OO.) NOP'C USR CON ABS LCL oe he NOEXE NORD NOWRT NOVEC BYTE 
SABS$ ( -»> O01 ¢ +1.) NOPiC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
DCLSZCODE 00000768 ( 1864.) 02 ¢ 2.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 
pow aan wera wre races anne manwea$ 
; Per formance indicators ; 
Phase Page faults CPU Time Elapsed Time 
Initialization 18 68: 80:00.09 00:00:00.84 
sounene processing 90 83:28: 0.61 00:00: tk -00 
s 1 368 00:0 3-28 00:00:45.83 
Syabol table sort 0 set Se Sg 00:00:05.84 
Pass 2 180 00:00:03.43 00:00:10.89 
Symbol table output 37 bs SES AE 00:00:00.94 
Psect synopsis output 00:00:00.0 00:00:00.02 
Cross-reference output 0 eS Sa i 00:00:00.00 
Assembler sun totals 695 00:00:21.48 00:01:10.36 


The working set_Limit was 1500 pages. 

80381 bytes (157 pages) of virtue memory were used to buffer the intermediate cod 

There were pages of symbol table space 7 to hold 1107 non-local and 84 lecat symbols. 
1013 source Lines were read in Pass progyc ing 20 object records in Pass 2. 

59 pages of virtual memory were used to define 41 macros. 
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Macro Library name 


-8255$DUA28: SYSLIBJSYSBLDMLB.MLB; 1 0 
~$255$DUA A28:COCL.OBJJDCL.MLB; 1 10 
~$255$DUA28: (SYS.OBJJLIB.MLB; 1 

“$255$DUA28: SYS. IBISTARLET. MLB;2 ; 
TOTALS (all Libraries) 


1350 GETS were required to define 33 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:F ILECMDS/OBJ=OBJ$:FILECMDS MSRCS$:F ILECMDS/UPDATE=(ENHS$:F ILECMDS) +EXECMLS/LIB+LIB$:DCL/LIB+SYSS$LIBRARY : SYSBLOMLB/LIB 
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